home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / tpbars.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  463b  |  19 lines
  1. /* Draw Bars Background */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. address 'DigiPaint' /* Tell ARexx where commands go */
  5. 'Drre'
  6. 'Flon'
  7. 'Hvof'                    /* Turn off Horizontal and Vertical gradients */
  8. 'Varr'                    /* Toggle Vert. Gradient (on) */
  9. 'Dotb'
  10. 'Poth' $F000        /* Set Gradient center to middle ($0000 - $FFFF) */
  11. 'Rang'
  12. h=80
  13. do y=0 to 480-h by h
  14.   'Pend' 0 y
  15.   'Penu' 752 y+h
  16. end
  17. 'Shco'          /* Render to Program Out */
  18. exit            /* Bye bye! */
  19.